home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 5
/
Aminet 5 - March 1995.iso
/
Aminet
/
misc
/
amag
/
AM9402_2.lha
/
tips & tricks
/
lesepd
< prev
next >
Wrap
AmigaDOS Script File
|
1993-12-22
|
559b
|
26 lines
.key dest
.bra {
.ket }
version >nil: exec.library 37 ;OS2.0 vorhanden?
if warn
echo "Benötige OS 2.0 oder höher"
quit 5
endif
LAB NochmalLesen
if val $kickstart GT 38 ;OS 3.0?
set choice `requestchoice "Batch Req" "Nächste Disk einlegen" "Ok|Ende"`
if EQ `get choice` 1
dir >>{dest} df0:~(c|libs|devs|l|fonts|s|system) DIRS
skip NochmalLesen BACK
endif
else ;OS 2.0
ask "Nächste Disk einlegen (y/n)"
if warn
dir >>{dest} df0:~(c|libs|devs|l|fonts|s|system) DIRS
skip NochmalLesen BACK
endif
endif
sort {dest} {dest}
quit 0